; return the forth num of lst
(defun forth-elem (lst i)
	(if (< i 2)
		(car lst)
		(forth-elem (cdr lst) (- i 1))))

(print (forth-elem '(1 2 3 4 5) 4))
(print (forth-elem '(a b c d e) 4))
